CSi Master: Ableton Live 5

home *** CD-ROM | disk | FTP | other *** search

/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / cstshared.cst / 00012_keyCheck.ls < prev next >

Wrap

Text File | 2005-07-28 | 7.1 KB | 289 lines

on keyCheck_OLD global gBrowserMoviePath, locatorHDaccess --------------------------- LOCATOR FROM HD ------------------------- if (locatorHDaccess = 1) or (locatorHDaccess = 3) then -- HELP BOX -------------------- -- if the keyCode = 114 or (the commandDown and the keyCode = 44) or (the commandDown and the key = "h") then -- global helpBox -- if objectP(helpBox) then -- TELL THE STAGE TO closeHelpBox -- else -- TELL THE STAGE TO showHelpBox -- end if -- end if -- OPEN CONTROLLER -------------------- global hideDesk, gPrint -- if the commandDown and the key = "o" then -- TELL THE STAGE TO openControllerWindow -- end if -- MUTE AUDIO -------------------- if the commandDown and the key = "m" then global gAllMute, gSavedSoundLevel if gAllMute = 0 then put the soundlevel into gSavedSoundLevel set the soundlevel = 0 set gAllMute = 1 else set the soundlevel = gSavedSoundLevel set gAllMute = 0 end if end if -- QUIT -------- if the commandDown and the key = "q" OR the keyCode = 53 then -- SEND IE TO IEexit THEN TO GCbrowser -- if gBrowserMoviePath <> 0 then -- TELL THE STAGE -- if gBrowserMoviePath <> (the moviePath & the movieName) then -- TELL THE STAGE TO exitscript -- TELL THE STAGE TO exitscript2 -- end if -- end tell -- end if ------------ openQuitBox end if -- FINDER SWITCHER ------------------- -- if (the keyCode = 113 and the machineType <> 256) or (the commandDown and the key = ENTER and the machineType <> 256) then -- -- tell the stage -- -- if objectP(finderSwitch) then -- finderSwitch(mDispose) -- end if -- -- openXlib (the pathName & "FinderSwitcher XObj") -- -- put FinderSwitcher(mNew) into finderSwitch -- if objectP(finderSwitch) then finderSwitch(mSwitchToFinder) -- -- end tell -- -- end if -- MUTE MUSIC ------------------- if the commandDown and the key = "n" then global gMute,gFade, gAllMute if (gMute = 1) then if gFade <> 1 and gAllMute <> 1 then set the volume of sound (2) to 255 end if set gMute = 0 else if gMute = 0 then set the volume of sound (2) to 0 set gMute = 1 end if end if updateStage end if -- CLOSE LOCATOR ------------------- if the commandDown and the key = "w" then global gControllerWindow if objectP(gControllerWindow) then close gControllerWindow end if end if -- VOL DOWN ------------------- -->> DOWN ARROW KEY if the keyCOde = 125 then put the timer into vStartTime put the soundlevel into vLevel if vLevel > 0 then set vLevel = vLevel - 1 updateStage end if set the soundlevel = vLevel puppetSound "volume beep" updateStage end if -- VOL UP ------------------- -->> UP ARROW KEY if the keyCOde = 126 then put the timer into vStartTime put the soundlevel into vLevel if vLevel < 7 then set vLevel = vLevel + 1 updateStage end if set the soundlevel = vLevel puppetSound "volume beep" updateStage end if ---------------------------------------------------------------------- else -- ORG KEY CHECK if the commandDown and the key = "q" OR the keyCode = 53 then -- SEND IE TO IEexit THEN TO GCbrowser -- if gBrowserMoviePath <> 0 then -- TELL THE STAGE -- if gBrowserMoviePath <> (the moviePath & the movieName) then -- TELL THE STAGE TO exitscript -- TELL THE STAGE TO exitscript2 -- end if -- end tell -- end if ------------ openQuitBox end if -->> DOWN ARROW KEY if the keyCOde = 125 then put the timer into vStartTime put the soundlevel into vLevel if vLevel > 0 then set vLevel = vLevel - 1 updateStage end if set the soundlevel = vLevel puppetSound "volume beep" updateStage end if -->> UP ARROW KEY if the keyCOde = 126 then put the timer into vStartTime put the soundlevel into vLevel if vLevel < 7 then set vLevel = vLevel + 1 updateStage end if set the soundlevel = vLevel puppetSound "volume beep" updateStage end if -- CATCH TUTORIAL (SO KEY COMANDS BELOW WON'T APPEAR) global TutorialMovie if TutorialMovie = 1 then exit end if if the keyCode = 114 or (the commandDown and the keyCode = 44) or (the commandDown and the key = "h") then global helpBox if objectP(helpBox) then TELL THE STAGE TO closeHelpBox else TELL THE STAGE TO showHelpBox end if end if global hideDesk, gPrint if the commandDown and the key = "o" then TELL THE STAGE TO openControllerWindow end if if the commandDown and the key = "m" then global gAllMute, gSavedSoundLevel if gAllMute = 0 then put the soundlevel into gSavedSoundLevel set the soundlevel = 0 set gAllMute = 1 else set the soundlevel = gSavedSoundLevel set gAllMute = 0 end if end if if (the keyCode = 113 and the machineType <> 256) or (the commandDown and the key = ENTER and the machineType <> 256) then tell the stage ----- TAKEN OUT BECAUSE OF OSX ERROR ----- -- if objectP(finderSwitch) then -- finderSwitch(mDispose) -- end if -- -- openXlib (the pathName & "FinderSwitcher XObj") -- -- put FinderSwitcher(mNew) into finderSwitch -- if objectP(finderSwitch) then finderSwitch(mSwitchToFinder) end tell end if if the commandDown and the key = "n" then global gMute,gFade, gAllMute if (gMute = 1) then if gFade <> 1 and gAllMute <> 1 then set the volume of sound (2) to 255 end if set gMute = 0 else if gMute = 0 then set the volume of sound (2) to 0 set gMute = 1 end if end if updateStage end if if the commandDown and the key = "w" then global gControllerWindow if objectP(gControllerWindow) then TELL THE STAGE TO forget gControllerWindow end if end if end if end keyCheck